unit pAppStatInfoInt;

interface
uses Classes;

type
  IAppStatInfo = interface
   function    FixStartTime(const ObjName,VarName:string):Integer;
   function    FixEndTime(const ObjName,VarName:string):Integer;
   function    GetVarInt(const ObjName,VarName:string):Integer;
   function    GetVarStr(const ObjName,VarName:string):string;
   function    IncCounter(const ObjName,VarName:string):Integer;
   procedure   SetNull(const ObjName,VarName:string);
   procedure   SetStringValue(const ObjName,VarName,Value:string);
   function    AddIntValue(const ObjName,VarName:string;Value:integer):integer;
   procedure   SetIntValue(const ObjName,VarName:string;Value:integer);

   procedure   AddToStrings(const ObjName,VarName,Value:string);
   procedure   ClearStrings(const ObjName,VarName:string);
   function    GetVarStrings(const ObjName,VarName:string):TStrings;

   procedure   Clear;
  end;

var AppStatInfo:IAppStatInfo;

implementation

initialization
 AppStatInfo:=nil
end.
